home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacTech 1 to 12
/
MacTech-vol-1-12.toast
/
Source
/
MacTech® Magazine
/
Volume 03 - 1987
/
03.04 Apr 87
/
turbo bug
/
LS turbo bug.pas
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1987-03-09
|
220 b
|
13 lines
|
[
TEXT/PJMM
]
PROGRAM divbyzero;
VAR
thenbr, zero : integer;
BEGIN
showtext;
zero := 0;
thenbr := 0 DIV zero;
writeln(thenbr);
thenbr := 1 DIV zero; {causes system crash ID=04. Resume then traps error}
writeln(thenbr);
END.